(Fbyte_code): Use internal_lisp_condition_case.

diff --git a/src/bytecode.c b/src/bytecode.c
index e5a3e7b2a7c6727519cb639b907f82c26f75e92c..e23d835cf10e2cffebe75f24865f8ed9d0b902fc 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -861,11 +861,11 @@ If the third argument is incorrect, Emacs may crash.  */)
 
        case Bcondition_case:
          {
-           Lisp_Object v1;
-           v1 = POP;
-           v1 = Fcons (POP, v1);
+           Lisp_Object handlers, body;
+           handlers = POP;
+           body = POP;
            BEFORE_POTENTIAL_GC ();
-           TOP = Fcondition_case (Fcons (TOP, v1));
+           TOP = internal_lisp_condition_case (TOP, body, handlers);
            AFTER_POTENTIAL_GC ();
            break;
          }